home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.5 Applications 2002 November / SGI IRIX 6.5 Applications 2002 November.iso / dist / gateway.idb / usr / WebFace / Source / 20-NetworkServices / rsvp / rsvp-config.frm.z / rsvp-config.frm
Encoding:
Text File  |  2002-06-12  |  4.2 KB  |  146 lines
  1. #!/usr/bin/perl5
  2. #
  3. # rsvp-config.frm
  4. #
  5. # Copyright 1988-1996 Silicon Graphics, Inc.
  6. # All rights reserved.
  7. #
  8. # This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;
  9. # the contents of this file may not be disclosed to third parties, copied or
  10. # duplicated in any form, in whole or in part, without the prior written
  11. # permission of Silicon Graphics, Inc.
  12. #
  13. # RESTRICTED RIGHTS LEGEND:
  14. # Use, duplication or disclosure by the Government is subject to restrictions
  15. # as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data
  16. # and Computer Software clause at DFARS 252.227-7013, and/or in similar or
  17. # successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
  18. # rights reserved under the Copyright Laws of the United States.
  19. #
  20. # $Id: rsvp-config.frm,v 1.2 1997/11/17 19:10:19 shotes Exp $
  21.  
  22. BEGIN { require "/usr/WebFace/lib/CGI.pm"; import CGI; }
  23. require "/usr/OnRamp/lib/OnRamp.pm";
  24. require "/usr/OnRamp/lib/java.pm";
  25. require "flush.pl";
  26.  
  27. $config = "/etc/config/rsvpd.options";
  28. $log_err = "Log errors only";
  29. $title = "RSVP Configuration";
  30. $help_page = "rsvp-config-help.html";
  31.  
  32. $query = new CGI;
  33.  
  34. if ($ENV{'HTTP_USER_AGENT'} =~ /Mozilla\/2/) { $br_index = 1; }
  35. else { $br_index = 0; }
  36.  
  37. $js = 
  38. "br_index = $br_index;
  39. $js_standard
  40. $js_error_box
  41. $js_help
  42. function checkForm(form) {
  43.     return (true);
  44. }";
  45.  
  46. print $query->header;
  47. &js_title_block($title, $js);
  48.  
  49. $help = $document_root . $ENV{"SCRIPT_NAME"};
  50. $help =~ s/cgi$/hlp/;
  51. exec $help if ($query->param('help') eq "Help");
  52.  
  53. $chkconfig = system("/sbin/chkconfig", "rsvpd");
  54. # This seems backwards, but it works.  Weird.
  55. if ($chkconfig) {
  56.     $Ersvp = 'No';
  57. } else {
  58.     $Ersvp = 'Yes';
  59. }
  60.  
  61. if ($query->param('doit') eq 'Ok') {
  62.     $new_level = $query->param('log_level');
  63.  
  64.     if ($new_level ne $log_err) {
  65.         $log_level = 3 if ($new_level eq 'Log errors only');
  66.         $log_level = 4 if ($new_level eq 'Also log warnings');
  67.         $log_level = 6 if ($new_level eq 'Log all status changes');
  68.         $log_level = 7 if ($new_level eq 'Log all events');
  69.         $log_level = 8 if ($new_level eq 'Log all messages');
  70.     }
  71.  
  72.     if ($query->param('ersvp') eq 'Yes') {
  73.         if ($log_level) {
  74.             # Changing logging level
  75.             open (RSVP, "> $config");
  76.             print RSVP "-l $log_level";
  77.             close (RSVP);
  78.             if ($Ersvp eq 'No') {
  79.                 system("/sbin/chkconfig", "rsvpd", "on");
  80.             } else {
  81.                 system("/sbin/killall", "rsvpd");
  82.             }
  83.             system("/usr/etc/rsvpd", "-l", $log_level);
  84.             $message = "RSVP enabled."
  85.         } elsif ($Ersvp eq 'No') {
  86.             # Just enabling daemon
  87.             system("/sbin/chkconfig", "rsvpd", "on");
  88.             system("/usr/etc/rsvpd");
  89.             $message = "RSVP enabled."
  90.         } else { 
  91.             # Was already enabled
  92.             $message = "No changes."
  93.         }
  94.     } else {
  95.         if ($Ersvp eq 'Yes') {
  96.             # Disabling daemon
  97.             system("/sbin/chkconfig", "rsvpd", "off");
  98.             system("/sbin/killall", "rsvpd");
  99.             $message = "RSVP disabled."
  100.         } else {
  101.             # Was already disabled
  102.             $message = "No changes."
  103.         }
  104.     }
  105. }           
  106.  
  107. &generic;
  108.  
  109. print $query->end_html;
  110.  
  111. sub error {
  112.     &error_block($_[0]);
  113.     &generic;
  114.     exit 0;
  115. } 
  116.  
  117. sub generic {
  118.     &header_block($title);
  119.  
  120.     print "<i>$message</i>";
  121.  
  122.     print "<form name=\"StandardForm\" method=post 
  123.         onSubmit=\"return runSubmit()\">";
  124.  
  125.     print "<center><table cellpadding=5 width=450>\n";
  126.  
  127.     print "<tr><th align=left>Enable RSVP:</th><th align=left>\n",
  128.           $query->radio_group(-name=>'ersvp',
  129.           -values=>['Yes','No'], -default=>$Ersvp),
  130.           "</th></tr>\n";
  131.  
  132.     print "<tr><th align=left valign=top>Set logging level:</th>\n",
  133.           "<th align=left>", $query->radio_group(-name=>'log_level', 
  134.           -values=>['Log errors only','Also log warnings','Log all
  135.           status changes','Log all events','Log all messages'], 
  136.           -default=>$log_err, -linebreak=>'true'),
  137.           "</th></tr>\n";
  138.  
  139.     print "</table></center><br>\n";
  140.  
  141.     print &js_buttons('doit','Ok','onClick="markOK()"','onClick="markOther()"',
  142.         "onClick=\"do_help('$help_page'); return (false)\"");
  143.     print $query->endform;
  144. }
  145.  
  146.